home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
biz
/
dbase
/
dfa12.lha
/
rexx
/
makephonelist.ced
< prev
Wrap
Text File
|
1992-11-18
|
721b
|
58 lines
/* Gets all addresses stored in the running DFA's database and puts
them in the current file. The parts of the inserted addresses may be
modified to suit your needs.
*/
options results
address 'rexx_ced'
tabchar = '09'X
cr = '0A'X
text cr
UP
/* Make sure that DFA is running */
if ~show(ports, DFA) then
do
'okay1' 'You should have DFA running, if you' cr 'want to get an address from it!'
exit 0
end
address 'DFA' FIRST STEM ADR.
do while RC = 0
text ADR.ADDRESS.2
"Beg of line"
do i=1 to 20
RIGHT
end
text ' '
"Delete to EOL"
text ADR.ADDRESS.1
"beg of line"
do i=1 to 40
RIGHT
end
text ' '
"Delete to EOL"
text ADR.ADDRESS.8
text cr
address 'DFA' next stem adr.
end
exit